EEE 


D 8 
Sy 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
LLL IIIIIIIII BBBBBBBBBBBB RRRRRRRRRRRR TTTTTTTTTTTTTTT «LLL Ll 
LLL HII BBBBBBBBBBBB RRRRRRRRRRRR TTTTTTTTTTTTITTT «LLL + 
LLL LITT BBB RRRRRRRRRRRR TTTTTTTTTITITITT «LLL L 
LLL 111 BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BB BBB RRR RRR TTT LLL LI 
LLL 11] BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BBB BBB RRR RRR TTT LLL | Ll 
LLL Il] BBB RRR RRR TTT LLL Ll 
LLL Il] BBB BBB RRR RRR TTT LLL Ll 
LLL III B RRRRRRRRRRRR TTT LLL Ll 
LLL Ill BBBBBBBBBBBB RRRRRRRRRRRR TTT LLL LI 
LLL Ill 8 RRRRRRRRRRRR TTT LLL ul 
LLL III BRA BBB RRR RRR TTT LLL 
LLL II] BBB RRR RRR TTT LLL Ll 
LLL II] BER BBB RRR RRR TTT LLL Ll 
LLL II] BRB BBB RRR RRR TTT LLL Ll 
LLL III ERB BBB RRR RRR TTT LLL Ll 
LLL Ill BSB BB RRR RRR TTT LLL Ll 
LLELLLLLLLLLLLLL IIIIIIIII BBBBBBBBBBBB RRR RRR TTT LELLLLLLLLLLLLL Ll 
LLELLLLLLLLLLLLL TITIII111 BBBBBBBBBBBB RRR RRR TTT LI 
LLELLLLLLLLLLLLL LIIIIIII BBBBBBBBBBBB RRR RRR TTT LELLLLLLLLLLLLL 


| 
LLLLLLLLLLLLLLL | 
| 
| 
| 


**F ILE**1D**L IBSPANC 


, 
LL III] BBBBBE8B8 SSSSSSSS_ PPPPPPPP AAAAAA NN NN cccccccc 

LL 1111 BBBBBBBB SSSSSSSS PPPPPPPP AAAAAA NN NN cccccccc 

LL II BB BB SS PP PP AA AA NN NN CC 

LL i] 88 BB SS PP PP AA AA NN NN CC 

LL I] BB BB SS PP PP AA AA NNNN NN CC 

LL I] -}] BB SS PP PP AA AA NNNN NN CC 

LL I] 688888888 SSSSSS PPPPPPPP BA AA NN NN NN CC 

LL I! BBBBBBBB SSSSSS PPPPPPPP AA AA NN WN NN CC 

LL I] 8B BB SS PP AAAAAAAAAA =NN NNNN CC 

LL I] BB BB SS PP AAAAAAAAAA NN NNNN CC 

LL I] 88 8B SS PP AA NN NN CC eeee 
LL I] BB BB SS PP AA AA NN NN CC eeee 
LLLLLLLLLL III] BBBBBBBB SSSSSSSS PP AL AA NN NN cccccccc eeee 
LLLLLLLLLL HII] BBBBBBBB SSSSSSSS PP Aa AA NN NN cccccccc cece 
LL HII! SSSSSSSS 

LL HII SSSSSSSS 

LL I] SS 

LL I] SS 

LL I] SS 

LL II SS 

LL I] SSSSSS 

LL I] SSSSSS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SS 

LLLLLLLLLL IIIII] SSSSSSSS 

LLLLLLLLLL HII] SSSSSSSS 


3 | 
| IBESPANC = Scan for character 16-SEP-1984 00:20:13 VAX/VMS Macro v04-00 Page 0 
able of contents 


as 


(3) $8 ai SPANCS Span characters 


. 
e 
. 
. 
. 
. 
. 
e 
. 
o 
. 
i 
. 
° 
. 
o 
. 
e 
. 
. 
. 
@ 
. 
° 
° 
° 
. 
o 
° 
- 
e 
. 
a 
. 
° 
2 
2 
2 
o 
a 
° 
. 
o 
. 
e 
° 
> 
° 
o 
e 
2 
e 
o 
6 
° 
a 
e 
o 
o 
e 
° 
e 
. 
a 
~ 
e 
° 
e 
° 
e 
. 
e 
. 
o 
e 
. 
e 
. 
e 
o 
° 
. 
° 
7 
e 
° 
2 
. 
e 
. 
e 
. 
a 
> 
e 
° 
e 
. 
e 
. 
e 
. 
e 
° 
e 
. 
e 
. 
eo 


+ 


- Scan for character 


16-SEP-1984 00:20:13 VAX/VMS Macro V04-00 Pa 1 
aes 7 90:90:15 LIBRTL. SR eI IBSPANC.MAR; 1 ” 1) 


“TiTLe Liessranc - esse” toe character 
IDEN -0 File: LIBSPANC.MAR Edit: RKR1006 


i seneneeeeeeneeeeseneneeeseeenenenseuneneteeunneerseeneeneteeeesnseeceenteess 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS ge UNDER A LICENSE AND MAY BE USED AND orice 
ONLY IN aoe NCE i A THE TERMS OF SUCH becca we HE 


® 
® 
& 
® 
ee 
® 
T NOTIC S$ SOFTWARE ‘ 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
HER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
TRANSFERRED. « 
® 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
ca 

com 

® 

w 

® 

® 

& 

® 


AN H NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


Ceeeeeeeeeeeeeeenenees 
oO 
part 
n” 
oOo 
. 


ae a ee 


SOOO QCOOoOQoOoOOoooooooooooo 
polo fale leolololololololeololololololo! 


; ah 2-Feb- 
; 1-004 - Enhance to “CiBRANA additional classes of opring, € Goeeripters 
; by seven ‘og, LIBSANLAYZE_SDESC re to oxtrogs ie Length 

address of Ist data byté of string AY21981. 
ecial-case code to process Siring descriptor g, that 
: Like fixed stri ng descriptors. RKR 1981 
; 1-006 - Redirect jsb's from LIBSANALYZE_SDESC_R3 to 


NAMA WN 9 OOD NA ME WIN HO OD NAM EWN O OD NAU EWN CO ODNAU SW OOONOU Sw 


DITO BP BB BB EB WIN I I IInononononononononons 3 


00 
00 3+ 
80 : FACILITY: General Utility Library 
00 : ABSTRACT: 
00 ; 
00 3 
38 3 character or zero 
: ENVIRONMENT: User Mode, AST Reentrant 
00 too 
op 3; AUTHOR: Donald G. Petersen, CREATION DATE: 03-Jan-78 
09 ; MODIFIED BY: 
90 ; DGP. jOfrsen-78 VERSION 00 
: 0)- § - oc 708 Jan-7 - table.rbu.ra for table.rt.dx 
3 -05 = DGP Jan-78 = remove one instruction 
0 3: 1-001 - Update version number and copyright ngt ice, g8s 16-NOV-78 
0 3; 1-0 § - add — o- the PSECT directive. JBS 21-DEC-7 
o 3 1-005 - Fix Rtry m so R2 and R35, which get clobbered, are saved. 


So 


Return an index into the source string of the satisfying 
| 
| 


: = 
IBSSPANC - Scan for character 16-SEP-1984 00: AX/VMS v04-0 1 
4-008 DECLARATIONS 6-SEP-1984 t 9 ‘#0: 3 LIBRTL.S iL IB SSPaNe MAR: 1 14 

69 «SBTTL DECLARATIONS : 
ee ; INCLUDE FILES: NONE : 
* ie ; 
65 ; EXTERNAL SYMBOLS : 
66 , BL : Only explicit externals ; 
6 sEXTRN LIBSANALYZE_SDESC_R2 ; Extract length and address of : 

o8 . ; Ist data byte of string : 

i 79 ; MACROS: ; 

29 7 . SOSCDEF : fields within a descriptor : 

000 74; 

2093 t3 ; EQUATED SYMBOLS: NONE 

900 ig ; 

000 8 : 

0000 79 : OWN STORAGE: NONE 

0000 3=—«« 80 gk 

0000 1 

0000 ¢ 3 

9000 83 PSECT DECLARATIONS: 

00000000 85 F -PSECT _LIBSCODE PIC, SHR, LONG, EXE, NOWRT 


Ll 5 
IBSSPANC - Scan for character 16-SEP-1984 00:20:1 AX/VMS Macro V04-00 Page 4 
eit LIBSSPANC - Span characters g- SE bn 18 4 90:90:13 YOTGRTL. SREILIBSPANC MARS 1 ° (3). 
i .SBTTL LIBSSPANC = Span characters | 
3; FUNCTIONAL DESCRIPTION: 
$3 3 The bytes of the string specified by the source descriptor are | 
93 ; successively used to index into a the table. | 
94; The byte selected from the table is ANDed with the mask byte 
95 ; specified by the mask descriptor. The operation continues 
39 3 until the result of the AND is zero. The relative position of 
0 97 ; the character in the source string which terminated the 
0 98 ; operation is returned if one is found. Otherwise, zero 
8 9; is returned. If the source string has a length of zero then a 
B09 ! ? 3 zero is returned. 
44 ! ¢ 3; CALLING SEQUENCE: 
009 198 : index.wlu.v = LIBSSPANC (src.rt.dx, table.rbu.ra, mask.rbu.r) 
000. = § 
4 4 ; INPUT PARAMETERS: 
00000004 0000 109 SOURCE = 4 ; Adr of source string desc 
00000008 0000 110 TABLE = 3; Adr of base of table 
0000000C 44 My MASK = 1 ; Adr of mask byte 
$000 118 ; IMPLICIT INPUTS: 
0000 114; 
0000 115 ; NONE 
0000 116 3 
44 117 ; OUTPUT PARAMETERS: 
000 118; 
0000 119; NONE 
000 120; 
000 121 ; IMPLICIT OUTPUTS: 
000 1 § $ 
0000 123; NONE 
8600 124 ; 
0 125 ; FUNCTION VALUE: 
000 1 § : 
000 127; index.wlu.v 
000 1 3 3 
0000 129 ; SIDE EFFECTS: 
00 130 ; 
3 131 ; NONE 
00 1 i-- 
b6 134 
001C 135 -ENTRY LIBSSPANC , “M<R2, R3, R4>; Entry point 
50 04 AC 00 1 $ MOVL SOU A R ; Address of source descriptor 
02 03 a0 91 0006 1 MP DSCSB_CLASS(RO), #DSCSK_CLASS_D ; read Like fixed ? 
06 1A QOOA 1 3 BGTRU 3; no 
51 04 6C 7d Q00C 1 MOVa @SOURCE(AP), R1 : Length->R1, address->R2 
06 «11 4h °9 BRB 2s 3; join common flow 
00009900" ¢? 16 a 146 1$: JSB G*LIBSANALYZE_SDESC_R2 ; Extract: length->R1, addr->R2 
54 te: tH re 2s: MOVZWL &1, R4 ; save length of source string 


m 5 
1-608" LIBSSPANC” "Span characters "B-SEp-198e 4:49:13 EMante. SReacrBseanc.mar;1 *29° & 


oc Bc O08 BC 62 S& 2 1 145 SPANC R4, (R2), @TABLE(AP), @MASK(AP) ; spanc character 
148 ; State of regs after a SPANC instr. 
14 ; RO = number of bytes remaining in 
| 3 source string (including the byte 
14 ; which produced the zero AND) 
139 F Is zero if no character found. 
151 ; R1 = If found, address of byte which 
13 3 produced zero A 
154 : r rin 
; 13 ps ource string 
8 138 ; RS = address of table 
13 
06 3 09 139 BEQL 10$ ; branch if no character found 
50 54 50 A 024 160 SUBW3 RO, R4, RO 3 get position of character 
50 D6 0028 161 INCL RO ; one origin 
04 002A 166 10 RET 
002B 16 - END 


. 
| 
| 
| 
| 
| 


- Scan for character 


DScSK “CLASS = So000003 
LIBSARALYZE-SDFESC_R2 eereeeee §6X 

$ewowwowwoocccoen+ 
! Psect synopsis ! 


LIBSSPANC ~ i SHS RG 
MASK = C 
SOURCE = 4 
TABLE = 8 
pee nenc were ew eanew a 


PSECT name Allocation PSECT No. Attributes 


BSept9be VPiFTi13 EMGNTC.SReScrBSeaNc.mar;1 29° 


. ABS . 00000000 ( 0.) 00 ¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS 00000000 < 9-3 Q1 ¢ 1.) NOPIC USR (CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
-LIBSCODE 00000028 (¢ 43.) 02 ¢ 2.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 


terror en ese wer encom won eaoae + 


H Performance indicators H 


Phase Page faults CPU Time Elapsed Time 


Initialization 9 00:00:00 .06 00:00:01.88 
Command processing 109 Ht -31 SEG BT a 
Pass 132 0: 2) «12 00:00:05.40 
Symbol table sort 0 0:00. 8.18 00:00:00.94 
Pass 2 44 00:00:00.3 00:00:02.46 
Symbol table output 3 BF On Be 00:00:00.01 
Psect synopsis output 2 0:00:00.01 00:00:00.01 
Cross-reference output 0 00:00:00.00 ae Se at 
Assembler run totals 321 00:00:01.92 00:00:13.30 


The working set Limit was 1050 peges. 

7912 bytes (16 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space allocated to hold 136 non-local and 3 local symbols. 
163 source Lines were read in Pass 1, producing 13 object records in Pass 2. 

8 pages of virtual memory were used to define / macros. 


dee eens cme eee weer ee eee meee ca 
! Macro Library statistics ! 


eee ee eee eee een eee wear esnecect 


Macro Library name Macros defined 
“S$255$DUA28:(SYSLIBJSTARLET.MLB;200 ( ittttSS™S % 
190 GETS were required to define 4 macros. 

There were no errors, warnings or information messages. 


MACRO/ENABLE=SUPPRE SS 10N/D1 SABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:LIBSPANC/OBJ=OBJ$:LIBSPANC MSRC$:LIBSPANC/UPDATE=(ENHS$:L IBSPANC) 


2 -BTI3A-SE . EQUIPMENT CORPORATION 


VAX/VMS V4.0 ENTIAL AND PROPRIETARY 


